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Acerca de este libro 


Teclear y ejecutar los programas 


Los programas de este libro están escritos 
en una versión estándar de BASIC, uno 
de los lenguajes de ordenador, y hay 
líneas de conversión para la mayoría de 
los principales tipos de ordenadores 
personales. Busca a la izquierda del 
listado del programa el símbolo que 
representa a tu ordenador y después mira 
en la lista de cambios los necesarios para 
la versión correcta de esa línea. Los 
símbolos para los distintos ordenadores 
son los siguientes: 

A Commodore 64 y VIC 20 

Spectrum 

e Apple 

* DRAGON 

m MSX 


Acerca de los juegos 


Los juegos de este libro son muy sencillos. 
Se han creado con la intención de 
ayudarte a acostumbrarte a tu ordenador 
y al lenguaje BASIC, tecleando los 
programas, depurándolos y 
comprendiendo cómo funcionan. Los 
programas no tienen gráficos o sonido 
porque varían mucho de un ordenador a 
otro, pero puedes intentar añadírselos. 
Puedes cambiar y adaptar los juegos a 
tu gusto. Detrás de cada listado de 
programa se sugieren maneras de hacerlo, 
pero también puedes experimentar con 
tus propias ideas. De esta manera, puedes 
usar los juegos de este libro como base 
para conseguir juegos más largos y más 
complicados hechos por ti mismo. 


Pesadilla informática está basado en una idea de 
Brendon Kavanagh 

Los números mágicos, El atrapa-fantasmas y El 
laberinto fantasmagórico fueron escritos por Colin 
Reynolds 

La Mujer-araña está escrito por Val Robinson; El 
enterrador, por Alan Ramsey y La Casa Fantasma, 
por Keith Campbell 


Ilustrado por Rob McCaig 
Editado por Jenny Tyler 


Queda prohibida la reproducción total o parcial de la 
presente obra bajo cualquiera de sus formas, gráficas o 
audiovisuales sin la autorización previa y escrita del 
editor, excepto citas en revistas, diarios o libros, 
siempre que se mencione la procedencia de las mismas. 


Recuerda que puede resultar difícil y 
llevar mucho tiempo teclear 
correctamente los programas, incluso si 
éstos son cortos. Comprueba cada línea 
que introduzcas, ya que es fácil cometer 
errores aunque tengas bastante 
experiencia. 

Cuando hayas introducido la totalidad 
del programa, compruébalo otra vez, 
asegurándote de que no te has saltado 
ninguna línea, espacios o signos de 
puntuación. 

Para empezar el juego, teclea RUN. 
Antes de empezar, lee la introducción del 
juego para tener una idea de lo que se 
supone que éste debe hacer. Si el 
programa no funciona correctamente, es 
bastante probable que haya un error en 
cualquier sitio; por eso, lista el programa 
y compruébalo de nuevo. 

Al acabar el juego, puede que el 
ordenador te pregunte si quieres jugar 
otra vez o, por el contrario, decir algo 
como BREAK in 200, en cuyo caso debes 
teclear RUN para jugar otra vez. 


Cambiar la velocidad 


Algunos juegos dependen de la velocidad 
de tus reacciones y del ordenador. Puede 
ser necesario ajustar la velocidad. 
Encontrarás instrucciones para hacerlo a 
continuación del listado del programa. 
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Pesadilla informática 


Acostumbras a quedarte hasta tarde por la noche delante del ordenador y has caído 
dormido frente al teclado. Repentinamente, tu ordenador cobra vida y comienza a 
arrojar números y a abusar de ti. Para combatirlo, tienes que teclear los números 
según aparecen en la pantalla. Tu puntuación de comienzo es 300, y se incrementa si 
pulsas el número correcto y disminuye si no lo haces. Si consigues una puntuación por 
encima de 500, el ordenador cederá y tú ganas; pero si llega a O, te convertirás en 
esclavo de tu ordenador. ¡Es una pesadilla real! ¿Puedes mantenerte a salvo? 


5 LET Fe="" Cómo funciona 
10 DIM C$(5) 
20 LT 5=300 ————————————————————— —— Fija el valor de comienzo del tanteo. 


30 LET C$(1)="4*% ORDENADORES AL PODER! +" 
40 LET C6(2)="% LAS PERSONAS SOIS ESTUPIDAS *" ] 
50 LET C$(3)=" UN ROBOT PARA PRESIDENTE!" a 
60 LET C$(4)=" LOS ORDENADORES SON LOS MEJORES!" O 
70 LET C$(5)="* YO SOY MEJOR QUE TU!*" 

eAs0 Ccls 


Limpia la pantalla. 


M 90 LET N=INT(RND(1)%9)+1 


en N. 


100 PRINT TAB(S);5N Imprime N y el tanteo (S) en puntos 
110 PRINT TAB(15);S diferentes de la pantalla. 


Mx 120 IF RND(1)>.5 THEN 6070 150 ———_—_—_—_—_—_—_—_—_—_—_—_—_—_—_—_— Decide si salta a 150. 


130 PRINT 

140 PRINT C$(INT(S/100)+1) 

150 IF S>=60 THEN GOTO 160 Imprime un mensaje, dependiendo del 
155 PRINT *< NO HAY ESPERANZA >” tanteo. 

160 IF S>440 THEN PRINT * SOCORRO! AYUDA! !* 


%! o de Ea Comprueba si estás pulsando una tecla. 
04180 LET A$=INKEYS Si es así, almacena su valor en FS. 
190 IF A$<>"" THEN LET F$=A$ 
200 NEXT 1 Disminuye en 10 el tanteo. 


210 LET S=S-10 Si pulsas una tecla equivocada, el 
220 IF VAL(F$)<>N THEN GOTO 240 ordenador salta a la línea 240 sin 


Elige un número entre 1 y 9 y lo coloca 


SI realizar el incremento de puntuación 


de la línea 230. 


240 IF S<0 THEN GOTO 270 Comprueba el tanteo para ver si has 
250 IF S>500 THEN GOTO 290 ganado o perdido y si es así, salta al 
final del juego. z 


260 GOTO 80 
270 PRINT "AHORA ERES MI ESCLAVO" 
280 STOP 

290 PRINT "OK. TU GANAS (POR AHORA)” 
300 STOP 


Regresa para otra baza. 


La velocidad del juego depende de este 
número. Probablemente necesites 
ajustarlo para adecuar la velocidad de tu 
ordenador a tus reacciones. Un número 
más alto hace el juego más lento. 


Líneas de conversión 


5 LET Fe="0" 
10 DIM C$(5,23) 


A 80 PRINT CHRM(147) Prueba estos cambios 
O 80 HOME Las líneas 20, 210 y 230 

90 LET NeINT(RNDA9+1) controlan el tanteo. Cambia 
M0 LET N=INT(RND(O)X9+1) los números de estas líneas y 
*XP0 LET N=INT(RND(-TIME)X9+1) observa qué ocurre. 
17120 IF RND>0.5 THEN GOTO 150 
M 120 1F RND(0)>0.5 THEN GOTO 150 Más cosas 
*x 120 IF RND(-TIME)>0.5 THEN GOTO 150 ] 
O 170 FOR I=1 TO 100 ¿Puedes imaginar una manera 
0 175 LET Aur" de modificar el programa para 
A 180 GET As que imprima letras en la 


O 180 IF PEEK(-16384))127 THEN GET AS pantalla, en vez de números? 


Te enfrentas ahora al Mago de los Números. El hechicero conjura en el aire los 
números de 1 a 9 y tira dos dados. Debes darle dos números que estén en el aire en 
| ese momento y que sumados den el mismo número que suman los dos números de los 
A dados. Una vez has usado un número, su imagen desaparece del aire y no puedes 
usarlo otra vez. Si han desaparecido todos los números antes de usar todas tus bazas 
has ganado. (Consigues una baza extra cada vez que el hechicero saca un doble.) 
Puedes usar ceros tantas veces como quieras en alguno de tus números. Si no puedes 
jugar, pasa a la baza siguientes usando dos ceros. Comprueba cuántas veces puedes 
- ganar al hechicero. 


Cómo funciona el 


programa 
PRINT "LOS NUMEROS MAGICOS” 
DIM A(10) Dimensiona el array, A. 


LET T=8 Fija el número de bazas permitidas. 


FOR I=1 TO 10 
LET A(I)=1 Un bucle coloca un 1 en cada espacio 
NEXT 1 de A. 


CcLS Se asegura de que A(1) siempre 
LET A(1)=1 contiene un 1 (es así porque puedes 
usar el O tantas veces como quieras). 


V lleva la cuenta de cuántos números 
LET V=0 - se han usado. (Puesto a cero al 
FOR I=2 TO 10 empezar.) 
IF A(1)<>0 THEN GOTO 150 : s a á 
PRINT * *; El bucle imprime los números. Si 
LET V=4+1 A(D)=0, el número se ha usado ya; 
GOTO 160 por eso se deja un espacio y se suma 


lav. 
PRINT 1-13 
NEXT 1 


PRINT . e 
TE O TEN GT A ——————— Si se han usado todos los números, 


salta al final del juego. 


PRINT "TE QUEDAN "¿T;" INTENTOS" Te dice cuántas bazas te quedan. 

LET C=INT(RND(1)%6+1) 

LET B=INT(RND(1)%6+1) Elige los números para la tirada de los 
PRINT "EL VALOR DE LOS DADOS ES *";C;","jB dados y los imprime. 


PRINT * CUALES SON TUS NUMEROS >?" A AA 
1F B=C THEN LET T=T+2 baza extra. ! 


LET T=T-1 Resta 1 a las bazas que quedan; 
IF T<=0 THEN GOTO 350 comprueba que T no es cero. 
INPUT N 

INPUT M 


1F M)9 OR N)9 THEN PRINT Oe ME A IDE Compare 
"DEMASIADO GRANDE - PRUEBA OTRA VEZ" ed 
IF M>9 OR N>9 THEN GOTO 230 


Si la suma no es correcta o si alguno 
IF M+N<>B+C OR A(N+1)=0 OR 
A(M+1)=0 THEN GOTO 70 == peo ió 
e Si los números son correctos, se 
LET A(M+1)=0 sustituyen los unos en el array A por 
LET A(N+1)=0 | ceros, para indicar que se han usado. 


GOTO 70 

PRINT "EL HECHICERO GANA" 
STOP 

PRINT "TU GANAS” 


sToP 


Líneas de conversión Quizá puedas encontrar una 
manera de hacer que el ordenador 


comience otro juego 


A 70 PRINT CHR$(147) 

O 70 HOME 

[1200 LET C=INT(RND*6+1) 

MM 200 LET C=INT(RND(0)*6+1) 

* 200 LET C=INT(RND(-TIME)X6+1) 
[1210 LET B=INT(RNDX6+1) 

MW 210 LET B=INT(RND(0)*6+1) 

*X 210 LET B=INT(RND(-TIME)X6+1) 


automáticamente y construir un 
registro de cuántas veces has 
ganado o perdido. También podrías 
imaginar un terrible destino para 
los jugadores que pierdan 
demasiadas veces... 


El atrapa-fantasmas 
ES GÓÓ 


Los fantasmas de este juego son números que cruzan rápidamente la pantalla. Para 
atraparlos, activa tu máquina usando la tecla X; pero recuerda: sólo funcionará cuando 
su número sea el mismo que el del fantasma atacante. Puedes incrementar el número 
de la máquina pulsando la tecla M (cuando llega a 9, se pone a cero otra vez). Si no 
consigues cazar al fantasma, éste te quitará una vida (marcadas como una «/» en la 
parte superior izquierda de la pantalla). A ver qué tal eres cazando fantasmas. 


Cómo funciona el 


programa 
10 PRINT "ATRAPA FANTASMAS” 
20 LET S=0 Fija a cero el tanteo y tu número al 
30 LET Y=0 comienzo del juego. 


40 LET L=3 == - ——___  _.  _—_——— Establece 3 como número de «vidas». 


OMA 50 LET N=INT(RND(11%10) ——_—_—_—_—_________ Toma un número entre 0 y 9 para el 
fantasma. 
Inicializa el contador para la distancia 
60 LET 121 ———— >. que el fantasma puede avanzar antes 


OA 70 CLS de alcanzarte. 
80 FOR J=1 TO L Bucle que imprime tus «vidas» como 
90 PRINT */*; «/» a parte superior izquierda de la 


100 NEXT J pantalla. 
110 PRINT Imprime el número del fantasma, la 


120 PRINT TAB(1)N5TAB(18)3 "5 "5 Y ——————————— barrera «:» y a ti en posiciones 
apropiadas en la pantalla. 


Este es un buen juego para 
añadirle sonido. Intenta añadir 
subrutinas para algo como el 
sonido del borboteo de la sangre 
cuando pierdas una vida y algo que 
parezca el sonido que puede hacer 
un fantasma cuando lo cazas. 


FOR K=1 TO 50 


NEXT K 

LET B$=INKEYS$ 

IF B$="x" THEN GOTO 220 
IF B$="M" THEN LET Y=Y+1 


IF Y=10 THEN Y=0 


LET I=I+1 
IF I<18 THEN GOTO 70 


LET L=L-1 


IF L70 THEN GOTO 50 

GOTO 270 

IF Y<2N THEN GOTO 170 

PRINT "ATRAPADO" 

PRINT "RRE" 

FOR K=1 TO 300 

NEXT K 

LET S=S+(18-1) 

GOTO 50 

LS 

PRINT "TU TANTEO ATRAPANDO* 
PRINT "FANTASMAS ES "3S 
PRINT 

PRINT "OTRA PARTIDA? (PULSA S O N)" 
“INPUT As 

IF A$="S" THEN RUN 

IF A$="N" THEN STOP 


Puedes alterar la velocidad de este 
juego cambiando el número de la 
línea 125. Usa un número más 
bajo para hacerlo más rápido. 
También puedes hacer el juego 
más duro reduciendo el número 
de la línea 120. 


Comprueba si has pulsado una tecla. 
Si es X (es decir, si has activado la 
máquina de cazar fantasmas), el 
ordenador salta a otro punto del 
programa para comprobar si te está 
permitido esto. Si es M, incrementa en 
1 tu número. 


Pone a cero tu número si llega a 10. 


Incrementa el contador de la distancia 
al fantasma. Si no ha alcanzado la 
barrera y no lo has cazado, el 
ordenador vuelve a imprimir el 
fantasma en la siguiente posición. 


Si alcanza la barrera, pierdes una 
vida. 

Vuelve por otro fantasma si todavía 
tienes vidas. 

Comprueba si tu número es igual al 
del fantasma cuando lo quieres cazar. 
Si no, regresa por otro fantasma. 


Líneas de conversión 


O 50 LET NeINT(RND*10) 

MM S0 LET N=INT(RND(0)*10) 

*X 50 LET NeINT(RND(-TIME)*10) 

A 70 PRINT CHR9(147) 

O 70 HOME 

DOborrar 125 

O borrar 127 

O 128 LET Bgar" 

A 130 GET Bs 

O 130 IF PEEK(-16384)>127 
THEN GET Bs8 

A 270 PRINT CHRS(147) 

O 270 HOME 


La mujer-araña 


¡Horror! ¡Es la mujer-araña! 

Estás de suerte, porque hoy está de buen humor. Si puedes adivinar rápidamente 
la letra que está pensando, te dejará libre. Si no, probablemente te 
convertirás en una mosca. 

Para averiguar la letra, dale una palabra y te dirá si su letra está o no en ella. 


LO LET G=0 Cómo funciona 
OA 20 CLS 


Elige un número, lo convierte en una 


OMA 30 LET T=INT(RND(1)%26+65) letra y lo pone en T$. 


LET T$=CHRS$(T) 

PRINT "LA MUJER ARANA” 
PRINT "HA ELEGIDO" 

PRINT 

PRINT "PRUEBA UNA PALABRA" 
PRINT 

PRINT 


INPUT YWS$ Lleva la cuenta del número de 
LET  B:6+ 1 —_—_—_—___—___________—____————————— A AÁKÁKÁKÁKÁ intentos. 


LET L=LEN(W$) 
IF L<4 OR L>8 THEN GOTO 70 Comprueba si la palabra es demasiado 


LET F=0 larga o demasiado corta. 


FOR I=1 TO L 
LET AS=MID$(W$,1,1) Analiza tu palabra para comprobar si la 
IF AS=T$ THEN LET F=1 letra está en ella. Si lo está, va a 280. 
NEXT 1 

IF F=1 THEN GOTO 280 

PRINT 

PRINT "NO ESTA EN ESA PALABRA” 


=1 T 
e E TUTO Bucle de demora para que puedas leer 
de el mensaje. 


IF G>15 THEN GOTO 400 
q A Finaliza el programa si has hecho 15 


intentos. 


Pide una palabra. 


Imprime el mensaje si la letra no se 
encuentra en esa palabra. 


CLS Limpia la pantalla. Vuelve por otra 
palabra. 


GOTO 70 

PRINT "SI - ES UNA DE ESAS" 

PRINT Te hace saber si la letra se encuentra 
PRINT "QUIERES INTENTAR ADIVINAR?" en tu palabra. Te pregunta si quieres 
PRINT "(S O N)* intentar adivinarla. Si «no», vuelve por 
INPUT R$ otra palabra. 

IF R$="N" THEN GOTO 250 


PRINT 


PRINT "CUAL ES TU LETRA?" 

INPUT 6G$ 

IF G$<>T$ THEN GOTO 410 

PRINT "ESTA BIEN - PUEDES IRTE” Imprime el mensaje, dependiendo de si 
PRINT "(DE MOMENTO) * has adivinado la letra o no. 

STOP 

PRINT "DEMASIADO TARDE" 

PRINT "AHORA ERES UNA MOSCA" 


sToP 


Líneas de conversión Experimentos 


Observa qué ocurre si cambias el 15 de la 
PRINT CHR$(147) línea 250 por un número más pequeño. 
¿Qué pasa si cambias los números 4 y 8 
LET T=INT(RNDX26+65) de la línea 140? 
LET T=INT(RND(0)26+65) 
O LET T=INT(RND(-TIME)426+65) Cambiar el juego 
1170 LET AS=W8(1 TO 1) 
1230 FOR A=1 TO 20 La mujer-araña está aburrida. Quiere que 
A 260 PRINT CHR$(147) ajustes el programa para hacer lo 
O 260 HOME siguiente: 
Si su letra está en tu palabra, se te 
permiten dos intentos para adivinarla; 
pero si tu intento es equivocado pierdes 5 
oportunidades. ¿Puedes hacerlo? 


El Enterrador 


Es de noche y aúlla el viento; no es la 
noche ideal para perderse en un 
cementerio, pero allí es donde estás. 
Tienes hasta la medianoche para 
encontrar la salida. Los esqueletos 
acechan en las sombras, esperando para 
darte un susto de muerte cuando te 
acerques demasiado. Puedes cavar 
hoyos para conseguir que se mantengan 
lejos, pero hacerlo es un trabajo 
cansado y no puedes cavar más de 5 en 
un juego. Has de tener cuidado para no 
caer en los hoyos que tú mismo has 
cavado. Las lápidas (representadas por 
«+») y las vallas del cementerio 
(representadas por «:») bloquean tu 
camino. Los hoyos que cavas se 
representan por «0», tú eres un «x*» y los 
esqueletos son «X». Espero que consigas 
escapar. 


Cómo funciona el programa 


50-90 Llena el array A de espacios 
vacíos. 

110 Establece el número de hoyos 
permitidos. 


120-170  Codifica los símbolos a usar. 

180-260 Coloca las vallas en el array. 

270-310 Elige posiciones aleatorias para 
las lápidas. 


para ti y para los esqueletos. 

400-420 Coloca los esqueletos en el 
array. 

440-640 Calcula tu nueva posición. 

650-740 Mira lo que hay en tu nueva 
posición. Si no hay nada, te 
coloca en ella. 

770-850 . Imprime los distintos mensajes 
de fin de juego. 

860-980 Imprime el cementerio. 

1030-110 Coloca un hoyo en el array si tú 
quieres. 

1100-1310 Mueve los esqueletos. 


320-390 Establece las posiciones iniciales 


CcLS 

PRINT "EL ENTERRADOR* 
DIM A(10,20) 

DIM B(6) 

FOR I=1 TO 10 

FOR J=1 TO 20 

LET A(1,J)=ASC(" *) 
NEXT J 


LET Y=ASC("*") 

LET B=ASC("+") 

LET C=ASC("0") 

LET D=ASC(*:") 

LET EsASC("X") 

LET Z=ASC(* ”) 

FOR J=1 TO 10 

LET A(J,1)=D 

LET A(J,20)=D 

NEXT 3 

FOR J=1 TO 20 

LET A(1,3)=D 

LET A(10,J3)=D 

NEXT J 

LET A(9,20)=Z 

FOR J=1 TO 20 

LET F=INT(RND(1)%7+2) 
LET G=INT(RND(1)%15+3) 
LET A(F,G)=B 

NEXT J 

LET M=2 

LET N=2 

LET B(2)=19 

LET B(4)=19 

LET B(6)=19 

LET B(1)=4 

LET B(3)=3 

LET B(5)=2 

FOR J=1 TO 5 STEP 2 

LET A(B(J),B(J+1))=E 
NEXT J 

GOSUB 860 

PRINT 

PRINT "TECLEA TU MOVIMIENTO ";W 
PRINT "(PUEDES IR N,S,E,0)" 
INPUT A$ 

IF A$="N" THEN GOTO 530 
IF A$="E" THEN GOTO 560 
IF A$="S" THEN GOTO 600 
IF A$="0" THEN GOTO 630 
GOTO 470 

LET T=N-1 

LET U=M 

GOTO 650 

LET T=N 


LET U=M+1 

IF A(T,U)=Z AND M=19 THEN GOTO 770 
GOTO 650 

LET T=N+1 

LET U=M 

GOTO 650 

LET T=N 

LET U=M-1 

IF A(T,U)=Z THEN GOTO 710 


IF A(T,U)=D OR A(T,U)=B THEN G0TO 690 


IF A(T,U)=C THEN GOTO 800 

IF A(T,U)=E THEN GOTO 830 

PRINT “ESE CAMINO ESTA BLOQUEADO" 
GOTO 440 

LET A(N,M)=Z 

LET N=T 

LET M=U 

LET A(N,M)=Y 

GOSUB 1030 

GOTO 400 

PRINT "ESTAS LIBREX*" 

PRINT "TU INDICE DE EFECTIVIDAD 
ES "5 INT((60-W)/60%(96+X))5"%" 
STOP 

PRINT "HAS CAIDO EN UNO DE" 
PRINT "TUS PROPIOS AGUJEROS" 
STOP 

PRINT " URK! 
TE HA* 
PRINT “DADO UN SUSTO 

DE MUERTE" 

STOP 

LET A(N,M)=Y 

CLS 

LET R=N 

LET S=M 

LET W=4+1 

IF W)60 THEN GOTO 990 
FOR I=1 TO 10 

FOR J=1 TO 20 

PRINT CHR$(A(1,3)); 

NEXT J 

PRINT 

NEXT 1 

RETURN 

PRINT "EL RELOJ INDICA LA" 
PRINT "MEDIANOCHE" 

PRINT * AGHHHHH! 111" 

STOP 

IF X=0 THEN GOTO 1110 
PRINT 

PRINT * QUIERES CAVAR" 
PRINT "UN HOYO (S 0 N)? * 
INPUT B$ 

IF B$<>"S" THEN GOTO 1110 
LET X=X-1 


UN ESQUELETO 


1100 LET A(R,S)=C 

1110 FOR J=1 TO 5 STEP 2 

1120 LET T=B(J) 

1130 LET U=B(J+1) 

1140 IF A(T,U+1)=Y THEN GOTO 830 

1150 IF A(T,U-1)=Y THEN GOTO 830 

1160 IF A(T-1,U)=Y THEN GOTO 830 

1170 IF A(T+1,U)=Y THEN GOTO 830 

1180 IF A$="W" THEN GOTO 1300 

1190 IF A$="S" AND A(T+1,U)=Z 
THEN GOTO 1270 

1200 IF A$="N" AND A(T-1,U)=Z 
THEN GOTO 1280 

1210 IF A$="E" AND A(T,U+1)=Z 
AND M>U THEN GOTO 1240 

1220 IF A$="E" AND A(T,U-1)=Z 
THEN GOTO 1250 

1230 GOTO 1300 

1240 LET B(J+1)=B(J+1)+2 

1250 LET B(J+1)=B(J+1)-1 

1260 GOTO 1290 

1270 LET B(J)=B(J)+2 

1280 LET B(J)=B(J)-1 

1290 LET A(T,U)=Z 

1300 NEXT J 

1310 RETURN 


Líneas de conversión 


O 10,870 HOME 

A 10,670 PRINT CHR9(147) 
(170,120-170 CAMBIAR ASC POR CODE 
(1280,290 CAMBIAR RND(1) POR RND 

M 260,270 CAMBIAR RND(1) POR RND(0) 


* 280,270 CAMBIAR RND(1) POR RND(-TIME) 


PINO MU 


NBI 
Sy E Yi 


y 
Y 


vo EQEUYN 


E, E E E +. 
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La casa fantasma 


Estás atrapado en una casa encantada donde todo se mueve, incluso las paredes. Si 
las puertas de salida se alinean, aunque sólo sea por un momento, podrías salir de ella 
rápidamente. Has encontrado una consola que parece controlar algunos de los 
movimientos de la casa. Las teclas X y C hacen que la puerta más cercana a ti (la 
parte de arriba de la pantalla) cambie la dirección. Las teclas N y M tienen el mismo 
efecto sobre la puerta más lejana a ti. No parece haber ninguna manera de controlar 
la puerta central. 

Mientras luchas frenéticamente con los botones de la consola, oyes pisadas 
acercándose por el pasillo detrás de ti. El número en el extremo superior izquierdo de 
la pantalla muestra su avance hacia ti. Si no puedes escapar antes de que las pisadas 
te alcancen... 

...¡Aahhgg...! 


Si tu ordenador tiene 
sonido, intenta añadir 
efectos para las pisadas y 
para el final del juego si 


DIM P(3) Cómo funciona el 


es se Peg 513) no puedes escapar. programa 
40 PRINT "LA CASA FANTASMA" Define dos arrays. Uno para la 
50 LET L$="* posición (P) de cada puerta, el otro 
A 60 LET W=31 para la dirección (S) en que se 
70 FOR I=1 TO Y desplaza. 
80 LET L$=L$+"%" Define una tabla de estrellas con la 
90 NEXT 1 anchura (W) de la pantalla y la 


coloca en L$. 


100 LET CT=240 

110 LET S(1)=1 a Fija el contador de pisadas a su 
120 LET S(3)=-1 AO valor inicial. 

130 FOR I=1 TO 3 Fija la dirección del movimiento de 


[JA 140 LET P(I)=INT(RND(1)%1W-4)+1) la puerta al principio: del juego. 
150 NEXT 1 Obtiene posiciones aleatorias de 
OA 160 CLS comienzo para las 3 puertas. 
A! 70 FOR I=5 TO 15 STEP 5 
A/J¡ES*|!80 PRINT TAB(0,1)5L5 Imprime las paredes y las puertas. 
Al 4 190 PRINT TAB(P(1/5),1)5"> x* 


200 NEXT 1 Imprime el contador de pisadas en el 
LJIMAXO 210 PRINT TAB (0, 0) ; C7 —_—— —_  ——_ extremo superior izquierdo. 


220 IF CT<0 THEN GOTO A Comprueba si las pisadas te han 
230 IF P(1)=P(2) AND P(2)=P(3) alcanzado. Si es así, salta al final del 
THEN GOTO 390 juego. 


[JIBAXO 240 LET 2Z$=INKEYS Comprueba si has ganado. 


250 IF Z$="" THEN GOTO 300 A a : 
240 IF Z$="X" THEN LET S(1)=-1 Obtiene las instrucciones del teclado. 


270 1F Z$2"C" THEN LET S(1)=1 Si es necesario, altera la dirección 


del movimiento cambiando los 
280 IF Z%="N" THEN LET S(3)=-1 signos más y menos. 


290 IF Z$="M" THEN LET S(3)=1 


LJEA 300 IF CT/25=INT(CT/25) THEN LET Mueve la puerta central cada 25 
P(2)=P(2)+INT(RND(1)%20)-10 pisadas. 


310 LEY C1=C1-1 —_—_—_—__—_ Disminuye el valor del contador de 


320 LET P(1)=P(1)+S(1) pisadas. 
330 LET P(3)=P(3)+S(3) Calcula 1 e de 1 
340 FOR I=1 TO 3 alcula las nuevas posiciones de las 


puertas. Si alguna alcanza el 


350 IF P(I)<1 THEN LET P(I)=1 extremo de la pantalla, el ordenador 
360 IF P(1)>(W-4) THEN LET P(I)=4W-4 la mantiene allí. 
370 NEXT I 

e GOTO 170 Vuelve por el siguiente movimiento. 


390 LET L=P(1)+1 
400 FOR I=1 _TO 15 Imprime tu precipitada salida a 
Al ¡HOX 410 PRINT TAB(L,1);"M* través de las puertas con su 
420 NEXT 1 correspondiente mensaje. 
430 PRINT * ERES LIBRE ''!!" 
440 STOP : , 

I 1 saje do h 
450 PRINT " DEMASIADO TARDE '" perdido. A 
460 PRINT "LAS PISADAS HAN CESADO ARGGHH! * 
470 STOP 


Líneas de conversión 
DO Spectrum 


140 LET P(I)=INT(RNDA(W-4)+1) 

180 PRINT AT I1,OJL%8 

190 PRINT AT 1,P(1/8)1"> <* A C64 y VIC 20 

210 PRINT AT 0,04CT za] 30 PRINT CHR$(147) 

240 LET Z8=INKEYS LET W=21 

300 IF CT/28=INT(CT/25) THEN PRINT CHR6 (147) 

LET P(2)=P(2) +INT(RNDF20) -10 FOR I=1 TO 3 

410 PRINT AT 1,Lj"M" FOR J=1 TO 5 
PRINT 
NEXT J 
PRINT LEFTS(L9,P(1));5"> 
<"¡RIGHTS (LS, (18-P(1))) 
PRINT CHR$(19)1CT 
GET 294 
PRINT CHR$(19) 
PRINT CHR$(19) 
PRINT TAB(L)"M" 


M MSX 


LET P(1)=INT(RND(-TIME)*(W-4)+1) 
LOCATE O, I'PRINT Ls 

LOCATE P(1/5),1I:PRINT "><" 
LOCATE 0,O:PRINT CT 

IF CT/25mINT(CT/25) THEN LET 
P(2)2P (2) +INT(RND(-TIME)*20)-10 
LOCATE L,I:PRINT "hn 


e APPLE 


30 HOHE 

160 HOHE 

160 VTAB(I) 

195 HTAB(P(1/5)) 

197 PRINT "> <" 

210 VTAB(1):HTAB(1):PRINT CT 

240 LET Z9a"” 

245 IF PEEK(-16384))>127 THEN GET 29 
395 VTAB(1) 

310 PRINT TAB(L)"M" 


* DRAGON 


140 LET P(1)=RND(30) 

170 FOR I=2 TO 12 STEP 5 

180 PRINTO(1432),L8 

190 PRINTO(IX3I2+*P((143)/5)),"> <*p 

210 PRINTGO, CT 

240 LET Z8=INKEYS 

300 IF CT/25=INT(CT/25) THEN LET 
P(2)=P (2) +RND(20) -10 

410 PRINTO(IXIZ4L), "1" 


¿Qué ocurre si cambias el número 
de la línea 100? 

¿Y si quitas el signo menos de la 
línea 120? 

Cambia los dos números 25 de la 
línea 300 por otro número y observa si 
hay alguna diferencia. 


El laberinto fantasmagórico 


En un lugar terrorífico, los pasillos, oscuros e idénticos, no parecen conducir a ninguna 
parte. Incluso dan la impresión de estar embrujados. Solamente puedes ver de frente. Y 
sólo puedes moverte en la dirección en que ves. Puedes torcer a la derecha o a la 
izquierda, pero realmente no irás a ninguna parte, solamente tendrás otra perspectiva. 
Todo lo que tienes que hacer es encontrar la cruz que marca la salida. Tu posición se 
representa por una «Y» y las paredes con «4». 

¡Glup! Está encantado. Los fantasmas se representan con la letra «F». Si te acercas 
demasiado a uno, serás trasladado a cualquier otra parte del laberinto, sin saber dónde 
estás o hacia dónde te diriges. Estas son las teclas que puedes usar: «X» para avanzar, 
«N» para torcer 90 grados a la izquierda, «M» para girar 90 grados a la derecha. 


Cómo funciona el 
programa 


Define un área de memoria (array) 
para el laberinto. 
Define una mini-matriz dentro del 
laberinto, que es la parte de él que 
Se puedes ver en la pantalla. 
S Establece el espacio para los datos 
30 LET Wa="" que llenan una fila de esta mini- 
S0 LET WE=WN$+"00C00000000" matriz. 
60 LET W$=4Y$+"OLLLLOÓLLO" 
70 LET Wi=W$+"0010011 100" 
80 LET Wé$=W$+"00L1OL1OL10" Contiene los datos para el laberinto. 
90 LET Ws=W$+"0110100100*" 1 =pasillo; 0=pared; 9=salida. 
100 LET W$=W$+"00111 11100" 
110 LET WE=W$+"0000009000" 


120 FOR I=1 TO 70 
7 130 LET E(I)=VAL(MIDS(W$,1,1)) Bucle que coloca los datos en el 
140 NEXT 1 array E. 


> 
10 DIM El(70) 


20 DIM V$(4,3) 


150 LET S=-1 Fija el número de veces que el 
fantasma se ha movido a — 1 al 
comienzo. 

160 LET G=12 Inicializa el número de fantasmas a 


cero. 


Elige una posición de comienzo 
aleatoria para ti. 


CMA 170 LET X=INT(RND(1)%*50)+10 


180 IF EíX)?(>1 THEN GOTO 170 Si esta posición no está en un 


pasillo, vuelve por otra. 


Va a la subrutina que sitúa al 
fantasma. 


CIMA 200 LET D=INT(RND(1)%4)+1 Elige tu dirección de avance al 
comienzo del juego. 


210 IF X=G+10 OR »=G-10 THEN GOTO 170 Comprueba si estás junto a un 
220 IF X=G+1 OR X=G-1 THEN GOTO 170 fantasma y si es así te lleva a un 
230 LET H=H+1 nuevo lugar. 

Incrementa el número de 


2340 IF H=S THEN GOSUB 840 movimientos que has hecho. 
Va a la subrutina de movimiento del 
es GOSUB 390 fantasma cada 5 movimientos. 
em 250 LET AS=INKEYS Salta a la subrutina que imprime la 


190 GOSUB 860 


270 IF A$="" THEN GOTO 260 sección del laberinto que puedes ver. 
280 1F A8="11" THEN LET D=D+1 peón ¡ ¡ ¡ 
== So rpreta tus instrucciones. Cambia 
290 IF A$="N" THEN LET D=D-1 el valor de la dirección, D, si es 
300 IF D=S THEN LET D=1 necesario. 


310 IF D=0 THEN LET D=3 
320 IF A8()"X" THEN GOTO 210 
330 IF D=1 AND E(X-10)(>0 THEN LET X=X-10 


Regresa para hacer el siguiente 
movimiento si no has avanzado. 


340 IF D=3 AND E(X+10)(>0 THEN LET X=x+10 Comprueba si te puedes mover. 
350 IF D=2 AND E(X+1)(>0 THEN LET X=X+1 
360 IF D=W AND E(X-1)(>0 THEN LET X=X-1 Comprueba si has alcanzado la 


370 IF E(X)=9 THEN 60710 930 salida. 


380 GOTO 210 Si no es así, regresa para hacer otro 
movimiento. 
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Añade sonidos 


Si tu ordenador tiene 
sonidos, intenta hacer un 
ruido cada vez que 
aparezca un fantasma. 


390 FOR I=1 TO 4 
400 LET T=I-1 
410 ON D GOTO 420,460,500,540 
320 LET Fíl3=x-1OXT+L 
330 LET F(2)=A-1OXT 
440 LET F(3)=x-1OFT-1 
450 GOTO 570 
460 LET F(l1)=x+ LOFT 
370 LET Fi2)8x+T 
480 LET F(3)=%-10+T 
490 GOTO 570 
500 LET F(L)=x+JORT-1 
S10 LET F12)=5*104T 
520 LET F(3)=x*LO0*T+1 
530 GOTO 570 
540 LET Fil)=x-T-10 
550 LET F(2)=%-T 
560 LET Fi3)=x-TeLO 
570 FOR J=1 TO 3 
580 IF F(J)í1 OR F(J)569 THEN GOTO 340 
590 IF E(FiJ))=0 THEN LET U8(1,J)="8" 
600 IF E(FiJ%)=1 THEN LET V$il,J0=" * 
610 IF E(FíJ))=9 THEN LET VB(1,J)="+" 
620 IF E(FiJ))=2 THEN LET V£(1,J)="F" 
630 NEXT J 
640 NEXT I 
650 LET VE(1,2)="7* 

OA 560 CLS 
670 PRINT 
680 PRINT "** LABERINTO FANTASMAGORICO XX" 
690 PRINT 


700 PRINT “AVANZAR A” 
710 PRINT "DERECHA [no 
720 PRINT "IZQUIERDA yn 


730 FOR I=1 TO 5 
740 PRINT 
750 NEXT 1 
760 FOR I=4 TO 1 STEP -1 
770 LET Pe="" 
780 FOR J=3 TO 1 STEP -1 
790 LET PS=Ps$(1,J) 
600 NEXT J 
810 PRINT TAB(7)JPS 
820 NEXT 1 
830 RETURN 
840 LET V$(I,J)e"s" 
850 GOTO 630 
860 LET E(G)=1 
Mx 870 LET G=INT(RND(1) 50) +10 
880 IF E(G)í>1 THEN GOTO 870 
890 LET E(G)=2 
200 LET H=0 
910 LET S=5+1 
920 RETURN 
930 PRINT "HAS ESCAPADO" 
940 PRINT "EN "¿S*5+H;" MOVIMIENTOS” 
950 STOP 


Líneas de conversión 


Ms CLEAR 200 

30 LET E(1)=VAL(W8(1 TO 1)) 

O LET X=INT(RNDA5SO) +10 

O LET x=INT(RND(0)%*50) +10 

O LET A=INT(RNDI-TIME)X50)+10 
200 LET D=INT(RNDA9)+1 

200 LET DRFINT(RND(0)%4)+1 

200 LET DsINT(RND(-TIME)%*9)+1 
235 LET A8="" 

260 GET As 

260 IF PEEX(-16394)>127 THEN QET A8 
310 GOTO 380+30%4D 

660 PRINT CHRS(147) 

£60 HOME 

E70 LET G=INT(RNDXSO) +10 

870 LET GaINT(RND(0)%*50) +10 

70 LET G=INT(RND(-TIME)*50) +10 


1 
1 
l 
l 


+41 ¡0> ¡0>0+MB M3 


Para mejorar los gráficos 


Intenta sustituir los símbolos «+ », 
«F», «Y» y «34» por caracteres 
gráficos e también colores). Esto 
implicará cambios en las líneas 
590-620 y 840. 


Subrutina que calcula: 

a) qué cuadrados puedes ver desde 
donde estás. 

b) qué caracteres poner en esos 
cuadrados. 

y Cc) imprime instrucciones y la 
sección de laberinto que puedes ver. 


Amplía el laberinto 


Este laberinto está basado en una 
matriz de 70 cuadrados. Para 
hacerla más grande, has de 
cambiar las líneas siguientes, 
sustituyendo N por el número de 
cuadrados que quieras que tenga 
tu nuevo laberinto. (N debe ser 
múltiplo de 10.): 

10: Sustituye 70 por tu número, N. 
50-110: Añade líneas extra de 
unos y ceros en 55, 65, etc., de 
tal manera que el número total de 
caracteres de la matriz sea N. 
120: Cambia 70 por N. 

170 y 870: Sustituye 50 por N-20. 
580: Cambia 69 por N-1. 


Subrutina para desplazar el fantasma 
cada 5 movimientos. 


Mensaje de fin del juego. 
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Espiritismo 


Llegan los mensajes de los espíritus, letra a 


recuerdes las letras y las introduzcas en el ordenador en el 
orden correcto. Si cometes errores, se enfadarán mucho. 


¡Mucho! 


Mira las estrellas de tu pantalla: te mostrarán las letras de 


los mensajes de los espíritus. 


LET S=0 
LET G=0 

LET CS=63 

CLS 

PRINT 

PRINT TAB(8)3 "ESPIRITISMO" 
FOR I=1 TO 8 

LET Xx=6+1 

LET Y=5 

LET A$=CHR$(CS+1 

GOSUB 710 

LET Yell 

LET AS=CHR$(CS+22-1) 
GOSUB 710 

NEXT 1 

FOR I=1 TO 5 

LET X=5 

LET Y=5+1 

LET A$=CHR$(CS+27-1) 
GOSUB 710 

LET X=16 

LET A$=CHR$(CS+8+1) 
GOSUB 710 

> NEXT 1 

O LET Pg="" 

LET N=INT(RND(1)%4+3) 
FOR I=1 TO N 

LET A$="*" 

LET L=INT(RND(1)X26+1) 
LET Sé=CHR$(CS+L) 

LET P$=P$+58 

LET D=4 

IF Lí22 THEN LET D=3 
IF L¿14 THEN LET D=2 

0 IF L<9 THEN LET D=1 

ON D GOTO 370,400,430,360 


Y= 
A= 


mOAk 
mx 


mx 


370 LET Y=6 

E LET X=L+6 

590 GOTO 3480 
LET x=15 
LET Y=L-3 
GOTO 480 La línea 490 _ 
LET Y=10 controla a qué 
LET x=28-L velocidad aparecen 

E las estrellas en la 

GOTO 480 pantalla. Cámbiala 
LET x=6 poniendo un número 
LET Y=32-L más bajo para 
GOSUB 710 aumentar la velo- 


cidad del juego. 


letra. Quieren que 


390 FOR T=1 TO 600 
500 NEXT T 
LET A$=" 


Cómo funciona 
el programa 


Después de que hayas 
tecleado el programa y 
jugado unas cuantas veces, 
intenta averiguar qué 
función tiene cada una de 


las líneas del programa. 
(Nota: D es una variable 
que dice al ordenador en 
qué lado del cuadrado —1, 
2,36 4£— está la siguiente 
letra del mensaje.) 


GOSUB 710 
NEXT 1 
540 LET as="" 
> LET x=0 

O LET Y=13 
GOSUB 710 
> INPUT Rs 
IF R£=Pg THEN GOTO 670 
LET G=G+1 


IF G=1 THEN PRINT "LA MESA 
EMPIEZA A VIBRAR" 
620 IF G=2 THEN PRINT "LA 
LUZ PARPADEA" 
£30 IF G=3 THEN GOTO 730 
640 FOR T=1 TO 1000 
650 MEXT T 
660 GOTO 40 
670 LET 5=S+N 
680 IF 5:50 THEN GOTO 40 
690 PRINT "LOS ESPIRITUS SE HAN IDO" 
700 STOP 
710 PRINT TAB(X, 125055 
720 RETURN 
730 PRINT *" UN PAR DE GELIDAS MANOS" 
740 PRINT "ESTRECHA TU CUELLO * 
750 STOP 


Líneas de conversión 


A 30 PRINT CHR$(147) 
O 40 HOME 
260 LET 
M 240 LET 
*x 260 LET 
2909 LET 


NeINT(RNDX4+3) 
N=INT(RND(0)%4+3) 
Ne*INT(RND(-TIME)4+3) 
L=INT(RND*26+1) 
M 290 LET L=INT(RND(0)X26+1 
* 290 LET L=“INT(RND(-TIME)X26+1) 

360 GOTO 390+30%D 

450 FOR T=l TO 100 

640 FOR T=1 TO 300 

710 PRINT AT Y,XJAS) 
A 710 PRINT CHRS(19)1 FOR Kal 
TO V:PRINT:NEAT:PRINT TAB(X)/48 
PRINTOIZA1+X,A91 
VTAB (Y): HTAB(X):PRINT A9 
LOCATE X,VY:PRINT AS 


Respuestas a las cuestiones 
planteadas 


Aquí hay algunas soluciones para las cuestiones propuestas en este libro. Puede 
ocurrir que tus respuestas sean diferentes; pero si funcionan en tu ordenador, valen. 
Comprueba, de todos modos, que tus soluciones son tan limpias y directas como las 
que se dan aquí. 


Pesadilla informática 


0 90 LET NS=CHRS(INT(RND(1)426+65)) Elige una letra y la imprime en la 
100 PRINT TAB(S)IN8 pantalla, en lugar de un número. 
Comprueba si la tecla pulsada y la letra 
220 IF FS<>N%9 THEN 60710 240 ——_—_—_—_____—— elegida son la misma. 


Incrementa el tanteo. (Depende de la 
230 LET S=8+ 10+A8C (N9) -45 ——_—_—_—_—_—_—_————————— letra: por ejemplo, con Z obtienes más 
puntos que con A.) 


90 LET N9=CHRS(INT(RNDA26+65)) 

M 90 LET NS=CHAS(INT(RND(0)%26+65)) 

*x 90 LET NS=CHRS(INTIRND(-TIME)X*26+65)) 
230 LET S=S+10+CODE (N9) -65 


Ten en cuenta las 
diferentes versiones para 
los ordenadores. 


Los números mágicos 


Inicializa el número de partidas ganadas 
A AS Es AAA y perdidas al principio del juego. 


Incrementa el número de veces que has 


355 LE LL perdido. 

360 GOTO 390 a 

380 LET WaW+1 ia el número de veces que has 
390 PRINT is 


400 PRINT "EL HECHICERO TU" 

410 PRINT Imprime el marcador. 

420 PRINT " JAY "4 

430 FOR Q=1 TO 1000 

440 NEXT Q AA Pausa para que puedas leer el tanteo. 


450 GOTO 30 


Cambia este número Regresa para jugar otra vez. 


para los ordenadores más 
rápidos. 


La mujer-araña 


5 LET NO=0 Inicializa el número de intentos. 


355 LET NO=NG+1 Incrementa el número de intentos. 


360 IF 0%=T98 THEN GOTO 370 


Si la letra es correcta, para el juego. 


Imprime el mensaje que dice que no es 


362 PRINT "NO, ESTAS EQUIVOCADO" ———————— correcta la letra. 


Incrementa el número de intentos en 5, 
364 LET 0=0+5 como penalización por haberte 
equivocado. 
366 IF NG=2 THEN GOTO 410 ——_—_—_—_—________—_—___—__—. Si has usado dos intentos, termina el 
juego. 


Regresa para jugar la siguiente baza. 
368 60710 230 —_—_—____—_—_—_—_——————————_—— (Con una pausa para que puedas leer el 
mensaje de la pantalla.) 


JUEGOS DE ORDENADOR 


Cada uno de estos nuevos libros contiene sencillos programas de 
juegos para utilizar en los ordenadores domésticos de mayor 
difusión. Junto a cada programa hay explicaciones sobre cómo 
funciona, así como problemas y sugerencias para introducir 
cambios que compliquen las aventuras o las hagan más sencillas, 
según los deseos del usuario. Por medio de estos apasionantes 
juegos, incluso los que nunca hayan utilizado un ordenador 
aprenderán con facilidad cómo funciona un programa sencillo, y 
podrán diseñar alguno por sí mismos. Al final de cada libro 
aparecen las claves de conversión para diversos ordenadores, así 
como un alosario de los términos más usuales en BASIC. 


Títulos de la serie 


R 
SUECOS DE ORDENADO 


EDICIONES GENERALES ANAYA 


